home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / BCQT03.ZIP / QUOTE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-12-13  |  3KB  |  250 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     String   STRING016
  37.     String   STRING017
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING004 = PPEPath() + "quote.cfg"
  42.     STRING001 = PPEPath() + "msg" + String(PcbNode())
  43.     If (Exist(STRING001)) Delete STRING001
  44.     MsgToFile CurConf(), ToInteger(PCBMac("@CURMSGNUM@")), STRING001
  45.     If (TokCount() > 0) Then
  46.         STRING016 = ReadLine(STRING004, 4)
  47.         STRING015 = PPEPath() + "showhdr"
  48.         BOOLEAN001 = 1
  49.         StartDisp 2
  50.         FOpen 1, STRING015, 0, 0
  51.         FGet 1, STRING008
  52.         STRING012 = ReadLine(STRING001, 9)
  53.         STRING012 = RTrim(Mid(STRING012, 19, Len(STRING012) - 18), " ")
  54.         STRING017 = ReadLine(STRING001, 10)
  55.         STRING017 = RTrim(Mid(STRING017, 19, Len(STRING017) - 18), " ")
  56.         :LABEL001
  57.         If (Ferr(1)) Goto LABEL002
  58.         STRING008 = ReplaceStr(STRING008, "%TO%", Mixed(STRING012))
  59.         STRING008 = ReplaceStr(STRING008, "%SUBJECT%", Mixed(STRING017))
  60.         PrintLn STRING008
  61.         FGet 1, STRING008
  62.         Goto LABEL001
  63.         :LABEL002
  64.         FClose 1
  65.         FClose -1
  66.         FOpen 1, STRING001, 0, 0
  67.         For INTEGER001 = 1 To 14
  68.             FGet 1, STRING008
  69.         Next
  70.         FGet 1, STRING008
  71.         INTEGER001 = 1
  72.         :LABEL003
  73.         If (Ferr(1)) Goto LABEL004
  74.         PrintLn ReplaceStr(STRING016, "%NR%", Right(String(INTEGER001), 3)), STRING008
  75.         If (Abort()) Goto LABEL004
  76.         FGet 1, STRING008
  77.         Inc INTEGER001
  78.         Goto LABEL003
  79.         :LABEL004
  80.         FClose 1
  81.         If (Abort()) ResetDisp
  82.         Newline
  83.     Endif
  84.     STRING009 = PPEPath() + "hdr"
  85.     STRING010 = PPEPath() + "ftr"
  86.     STRING011 = ReadLine(STRING004, 1)
  87.     STRING005 = ReadLine(STRING004, 2)
  88.     STRING006 = ReadLine(STRING004, 3)
  89.     STRING002 = 1
  90.     InputStr STRING005, STRING002, 3, 7, Mask_Num() + "Q", 8 + 2
  91.     If (STRING002 == "Q") Then
  92.         If (BOOLEAN001) Goto LABEL005
  93.         KbdStuff "Q"
  94.         Goto LABEL006
  95.         :LABEL005
  96.         KbdStuff Chr(13)
  97.         :LABEL006
  98.         End
  99.     Endif
  100.     FreshLine
  101.     STRING003 = STRING002
  102.     InputStr STRING006, STRING003, 3, 7, Mask_Num() + "Q", 8 + 2
  103.     If (STRING003 == "Q") Then
  104.         If (BOOLEAN001) Goto LABEL007
  105.         KbdStuff "Q"
  106.         Goto LABEL008
  107.         :LABEL007
  108.         KbdStuff Chr(13)
  109.         :LABEL008
  110.         End
  111.     Endif
  112.     If (ToInteger(STRING002) > ToInteger(STRING003)) Then
  113.         PrintLn "STartline bigger"
  114.         Wait
  115.         If (BOOLEAN001) Goto LABEL009
  116.         KbdStuff "Q"
  117.         Goto LABEL010
  118.         :LABEL009
  119.         KbdStuff Chr(13)
  120.         :LABEL010
  121.         End
  122.     Endif
  123.     STRING007 = PPEPath() + "qte" + String(PcbNode())
  124.     FCreate 1, STRING007, 1, 0
  125.     If (!BOOLEAN001) FPutLn 1, "Q"
  126.     If (BOOLEAN001) Then
  127.         FPutLn 1, "F"
  128.     Endif
  129.     FOpen 2, STRING009, 0, 0
  130.     FGet 2, STRING008
  131.     STRING013 = ReadLine(STRING001, 5)
  132.     STRING013 = Mid(STRING013, 19, Len(STRING013) - 18)
  133.     STRING014 = ReadLine(STRING001, 6)
  134.     STRING014 = Mid(STRING014, 19, Len(STRING014) - 18)
  135.     STRING012 = ReadLine(STRING001, 9)
  136.     STRING012 = RTrim(Mid(STRING012, 19, Len(STRING012) - 18), " ")
  137.     STRING008 = ReplaceStr(STRING008, "%NAME%", Mixed(STRING012))
  138.     STRING008 = ReplaceStr(STRING008, "%DATE%", STRING013)
  139.     STRING008 = ReplaceStr(STRING008, "%TIME%", STRING014)
  140.     :LABEL011
  141.     If (Ferr(2)) Goto LABEL012
  142.     FPutLn 1, STRING008
  143.     FGet 2, STRING008
  144.     STRING008 = ReplaceStr(STRING008, "%NAME%", Mixed(STRING012))
  145.     STRING008 = ReplaceStr(STRING008, "%DATE%", STRING013)
  146.     STRING008 = ReplaceStr(STRING008, "%TIME%", STRING014)
  147.     Goto LABEL011
  148.     :LABEL012
  149.     FClose 2
  150.     FClose -1
  151.     For INTEGER001 = STRING002 To STRING003
  152.         STRING008 = ReadLine(STRING001, 14 + INTEGER001)
  153.         FPutLn 1, Left(STRING011 + STRING008, 72)
  154.     Next
  155.     FOpen 2, STRING010, 0, 0
  156.     FGet 2, STRING008
  157.     STRING008 = ReplaceStr(STRING008, "%NAME%", Mixed(U_Name()))
  158.     :LABEL013
  159.     If (Ferr(2)) Goto LABEL014
  160.     FPutLn 1, STRING008
  161.     FGet 2, STRING008
  162.     STRING008 = ReplaceStr(STRING008, "%NAME%", Mixed(U_Name()))
  163.     Goto LABEL013
  164.     :LABEL014
  165.     FClose 2
  166.     FClose 1
  167.     KbdFile STRING007
  168.     End
  169.  
  170. ;------------------------------------------------------------------------------
  171. ;
  172. ; Usage report (before postprocessing)
  173. ;
  174. ; ■ Statements used :
  175. ;
  176. ;    4       End
  177. ;    1       Wait
  178. ;    24      Goto 
  179. ;    39      Let 
  180. ;    3       PrintLn 
  181. ;    18      If 
  182. ;    1       FCreate 
  183. ;    4       FOpen 
  184. ;    7       FClose 
  185. ;    9       FGet 
  186. ;    5       FPutLn 
  187. ;    1       ResetDisp
  188. ;    1       StartDisp 
  189. ;    1       Delete 
  190. ;    2       InputStr 
  191. ;    1       Inc 
  192. ;    1       Newline
  193. ;    6       KbdStuff 
  194. ;    1       KbdFile 
  195. ;    1       FreshLine
  196. ;    1       MsgToFile 
  197. ;
  198. ;
  199. ; ■ Functions used :
  200. ;
  201. ;    2       -
  202. ;    16      +
  203. ;    5       -
  204. ;    2       ==
  205. ;    2       <
  206. ;    2       <=
  207. ;    2       >
  208. ;    4       >=
  209. ;    15      !
  210. ;    4       &&
  211. ;    2       ||
  212. ;    5       Len(
  213. ;    5       Mid()
  214. ;    1       Left()
  215. ;    1       Right()
  216. ;    4       Ferr()
  217. ;    3       Chr()
  218. ;    2       Abort()
  219. ;    3       RTrim()
  220. ;    2       U_Name()
  221. ;    3       String()
  222. ;    2       Mask_Num()
  223. ;    1       CurConf()
  224. ;    6       PPEPath()
  225. ;    2       PcbNode()
  226. ;    10      ReadLine()
  227. ;    1       Exist()
  228. ;    1       TokCount()
  229. ;    11      ReplaceStr()
  230. ;    3       ToInteger()
  231. ;    6       Mixed()
  232. ;    1       PCBMac()
  233. ;
  234. ;------------------------------------------------------------------------------
  235. ;
  236. ; Analysis flags : No flag
  237. ;
  238. ;------------------------------------------------------------------------------
  239. ;
  240. ; Postprocessing report
  241. ;
  242. ;    2       For/Next
  243. ;    0       While/EndWhile
  244. ;    5       If/Then or If/Then/Else
  245. ;    0       Select Case
  246. ;
  247. ;------------------------------------------------------------------------------
  248. ;                 AEGiS Corp - Break the routines, code against the machines!
  249. ;------------------------------------------------------------------------------
  250.